home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / brainfuck-2.lha / src / div10.b < prev    next >
Encoding:
Text File  |  1993-05-22  |  379 b   |  17 lines
  1. ==== ==== ==== ==== ====
  2. num  ten  tmp  bool div
  3. ==== ==== ==== ==== ====
  4.  
  5. >+++++++++<
  6. [
  7.  >>>+<<                bool= 1
  8.  [>+>[-]<<-]           bool= ten==0
  9.  >[<+>-]               ten = tmp
  10.  >[<<++++++++++>>>+<-] if ten=0 ten=10  inc div
  11.  <<-                   dec ten     
  12.  <-                    dec num
  13. ]
  14. >>>>[<<<<+>>>>-]<<<<   copy div to num
  15. >[-]<                  clear ten
  16.  
  17.